home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15b.d64 / beispiel 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  42 lines
  1. 100 IFFL=0THENFL=1:LOAD"DIRECTORY-LOAD",8,1
  2. 110 PRINT"[147]                                        ";
  3. 120 PRINT"               DISK-MENUE               ";
  4. 130 PRINT"         [154]WRITTEN BY UDO WOEHLER         ";
  5. 140 PRINT"                                        ";
  6. 150 PRINT"BITTE WARTEN"
  7. 160 POKE53281,6:POKE53280,14
  8. 170 DIMA$(143)
  9. 180 SYS49152,,ZH%,A$,,,,,"P"
  10. 190 ZH=ZH%-1:IFZH=-1THENPRINT"[147]";:END
  11. 200 AN=0
  12. 210 E=AN+18:A=AN
  13. 220 IFE>ZHTHENE=ZH
  14. 230 BU$=CHR$(E-A+65)
  15. 240 PRINT"[147]               DISK-MENUE"
  16. 250 PRINT"         [154]WRITTEN BY UDO WOEHLER"
  17. 260 PRINT"  ZUM STARTEN BUCHSTABE (A-";BU$;") DRUECKEN"
  18. 270 IFZH>19THENPRINT"<CR> WEITERE FILES";
  19. 280 PRINT"[154]"
  20. 290 FORT=ATOE:PRINT:PRINT"         ";CHR$(65+T-A);")  ";A$(T);:NEXT
  21. 300 GETS$:IFS$=""THEN300
  22. 310 IFS$=CHR$(13)THENAN=AN+19:IFAN>ZHTHENAN=0
  23. 320 IFS$=CHR$(13)THEN210
  24. 330 IFS$<"A"ANDS$>"S"THEN300
  25. 340 IFAN+ASC(S$)-65>ZHTHEN300
  26. 350 AN=AN+ASC(S$)-65
  27. 360 PRINT"[147]LOADING ";A$(AN)
  28. 370 NA$=""
  29. 380 FORT=16TO1STEP-1:IFMID$(A$(AN),T,1)<>" "THENNA$=LEFT$(A$(AN),T)+"*":T=0
  30. 390 NEXT
  31. 400 OPEN1,8,2,NA$+",P,R"
  32. 410 GET#1,A$:GET#1,B$:CLOSE1:AD=ASC(B$+CHR$(0))*256+ASC(A$+CHR$(0))
  33. 420 PO=0:IFAD<>2049ANDAD<>2048THENPO=1
  34. 430 IF AD<828 THENPO=2
  35. 440 PRINT"LOAD"CHR$(34);NA$;CHR$(34)",8,1"
  36. 450 IFPO=2THENPRINT"":POKE198,1:POKE631,13:END
  37. 460 IFPO=1THENPRINT"NEW":PRINT"SYS"AD""
  38. 470 IFPO=1THENPOKE198,4:POKE631,13:POKE632,13:POKE633,154:POKE634,13:END
  39. 480 PRINT"RUN"
  40. 490 POKE198,3:POKE631,13:POKE632,154:POKE633,13
  41. 500 END
  42.